45 PRINT : HTAB 7: PRINT "DISK OF THE MONTH JULY,1984": PRINT
50 HTAB 10: PRINT " PRODOS DISK"
55 PRINT
60 PRINT
70 PRINT "SELECT FROM THE FOLLOWING": PRINT
80 PRINT "1 FILE CABINET-PRODOS"
90 PRINT "2 FILE CABINET STUFFER"
100 PRINT "3 FILE CABINET INITIALIZER"
110 PRINT "4 FILE CABINET MODIFIER"
120 PRINT "5 FILE CABINET INSTRUCTIONS"
130 PRINT "6 FILE CABINET-ONE PROGRAM"
135 PRINT
140 PRINT "7 TYPE COMMAND INSTRUCTIONS"
150 PRINT "8 INSTALL 'TYPE.ORIG' COMMAND"
160 PRINT "9 INSTALL 'TYPE' COMMAND"
170 PRINT "10 QUIT TO BASIC": PRINT
180 INPUT " ENTER THE NUMBER OF YOUR SELECTION :";K$
190 K = VAL(K$): IF K <1 OR K >10 GOTO 30
200 ON K GOTO 210,220,230,235,240,250,260,270,280,290
210 PRINT D$;"RUN MAIN"
220 PRINT D$;"RUN FILECAB.STUFFER"
230 PRINT D$;"RUN FILECAB.INITIAL"
235 PRINT D$;"RUN FILECAB.MOD"
240 PRINT D$;"RUN FILECAB.INSTR"
250 PRINT D$;"RUN FILECABINET"
260 GOSUB 310: REM DISPLAY TYPE INSTRUCTIONS
265 GOTO 30
270 HOME : VTAB 10
272 PRINT "INSTALLING 'TYPE.ORIG COMMAND"
274 PRINT D$;"BLOAD TYPE.ORIG"
276 CALL 8033
278 PRINT "'TYPE.ORIG' COMMAND NOW INSTALLED PRESS ANY KEY TO CONTINUE": GET K$: GOTO 30
280 HOME : VTAB 10
282 PRINT "INSTALLING 'TYPE' COMMAND"
284 PRINT D$;"BLOAD TYPE"
286 CALL 8033
288 PRINT "'TYPE' COMMAND NOW INSTALLED PRESS ANY KEY TO CONTINUE": GET K$: GOTO 30
290 HOME : PRINT "TO RETURN TO MENU, TYPE 'RUN'": END
300 REM << TYPE INSTRUCTIONS >>
310 TEXT : HOME : VTAB 5: INVERSE
320 HTAB 10: PRINT "TYPE COMMAND": NORMAL : PRINT
330 PRINT "THE 'TYPE' COMMAND PROVIDES THE ABILITY TO LIST A TEXT FILE FROM DISK TO THE SCREEN OR TO A PRINTER, IF ACTIVE.": PRINT
340 PRINT "THIS VERSION WAS PUBLISHED BY CECIL FRETWELL IN THE MAY 1984 ISSUE OF CALL- A.P.P.L.E.": PRINT
350 PRINT "THE 'TYPE' COMMAND CAN BE INSTALLED BY A 'BRUN' COMMAND OR BY 'BLOAD' FOLLOWED BY A 'CALL 8033'; EITHER IN IMMEDIATE MODE OR FROM PROGRAM MODE.": PRINT
360 HTAB 5: PRINT "PRESS ANY KEY TO CONTINUE ->->-> ";: GET K$
370 HOME : PRINT
380 PRINT "TWO VERSIONS OF THIS COMMAND WERE PRO- VIDED IN THE ARTICLE. THE LISTED VERSIONIS NAMED 'TYPE.ORIG' ON THIS DISK."
390 PRINT "THE AUTHOR INDICATES THAT A POTENTIAL BUG EXISTS IN PRODOS; SUCH THAT THE ORIGINAL VERSION MAY RESULT IN 'SYNTAX ERROR' BEING DISPLAYED."
400 PRINT "THE SYSTEM WILL REQUIRE A RE-BOOT IF THIS CONDITION OCCURS.": PRINT
410 PRINT "THE SUGGESTED CORRECTION INVOLVED THE USE OF A 'POKE 48647,PEEK(48647)-1' SEQUENCE BEFORE INSTALLATION OF THE 'TYPE' COMMAND."
420 PRINT "THE ALTERNATE PROGRAM WHICH IS NAMED 'TYPE' ON THIS DISK CONTAINS THE FIX FORTHIS PROBLEM WITHIN THE FIRST STEPS OF THE PROGRAM; THUS NO ADDITIONAL WORK IS REQUIRED.": PRINT
430 HTAB 5: PRINT "PRESS ANY KEY TO CONTINUE ->->-> ";: GET K$
440 HOME : PRINT
450 PRINT "ACTUAL USE OF THE 'TYPE' COMMAND ONLY REQUIRES ADHERENCE TO THE PRODOS PATH CONVENTIONS - SUCH AS:": PRINT
460 HTAB 10: PRINT "TYPE TEXTFILE": PRINT
470 HTAB 10: PRINT "TYPE /DISKA.WORK/TEXTFILE/"
480 VTAB 18
490 HTAB 5: PRINT "PRESS ANY KEY TO RETURN TO STARTUP MENU ->->-> ";: GET K$